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EDITC«IAL 

Welcome to the first issue of MICRO-80. 

M1CRO-8J3 is the first and only Australian monthly magazine devoted entirely to 
the TRS-80 microcomputer. It is available by subscription - $24.0J3 for 12 
months or by mail order at $2.5j3 per copy. Special bulk purchase rates are 
also available to computer shops etc . , - please use the form in this issue to 
order your copy or subscription. 

The purpose of MICRO-8J3 is to publish software and other information to help 
you get the most from your TRS-80 computer and its peripherals. MICRO-80 is 
in no way connected with the TANDY organisation. 

WE WILL BUY YOUR PROGRAMS! 



Most of the information we publish is provided by our readers, to whom we pay 
royalties. An application form containing full details of how you can use 
your TRS-80 to earn some extra income is included m every issue. 

CONTENT 



Each month we publish at least one applications program in Level 1 BASIC; one 
in Level 2 BASIC and one in Disk BASIC ior Disk compatible Level 2) . We also 
publish Utility programs in Level 2 BASIC and Machine Language. At least 
every second issue we will have an article on hardware modiciations or 
constructional articles for useful peripherals. Starting next month, we will 
also be running a series of informative articles on Assembly Language Programming, 
new product reviews etc.. In addition to all this, we are prepared to print news 
from TRS-80 Users clubs, letters to the Editor, display advertisements and 
classified ads. 

ADVERTISING 



We accept camera ready copy for display advertising at the following rates: 

- FULL PAGE (19 cm wide x 28 cm high) $120 

- 1/2 PAGE (19 " " X 14 " " ) $ 60 

- 1/4 PAGE (19 " " x 7 " " ) $ 30 
Classified Ads are $8.00 for up to 50 words. 

These prices are valid for issues 2 S 3 only. Ads must be submitted by the 15th 
of each month in order to appear in the following month's issue. An official 
Company Order or payment must be included with the advert. 

SPECIAL OFFER - ISSUE 2 ONLY 

FOR ISSUE 2 ONLY, THE COST OF A FULL PAGE ADVERT. WILL BE REDUCED BY l/3rd 

TO ONLY $80 : ::::::: 

TRS-80 USERS CLUB NEWS 

We are prepared to print news of the activities of TRS-80 Users Clubs, up to a 
maximiim of 200 words per club per month, space permitting. Copy must be TYPED 
with DOUBLE LINE SPACING and reach us NO LATER than the 15th of each month in 
order to appear in the following month's issue. 
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S5 vhc don't get as much time at the keyboard as they would like, the 
",s m each month's issue are available on a cassette for an additional $3.50. 
can order a 12 month subscription to the magazine PLUS cassette for $50.00, 
cnlv $5.00- per month: :: : 



:ght 



All the material published in this magazine is under copyright. That means that 
you must not copy it except for your own use. This applies to photocopying the 
ragazine itself or making copies of programs on tape or disk. Being practical, 
if you copied a program onto cassette and gave it to a friend who is not a sub- 
scriber to MICRO-80, we would be unlikely to sue you, even if we found out. 
However, that's a pretty good way to put us out of business, then there would be 
r.o more programs to copy and no more money to be earned when we publish your 
programs! Think about it. 

If a friend asks you for a copy of a MICRO-80 program, why not get him to take out 
a subscription himself, that way everyone will benefit and we'll do our part by 
publishing better and better programs far cheaper than anyone else. 

-00000- 



********** 



NEXT MONTH'S ISSUE 



********** 



The January edition of MICRO-80 will be ready for posting about 14th January. It 
will contain at least the following programs: 



HANGMAN (LI) 



- The traditional, educational word-game brought up to date, 
complete with a picture of the hangman's victim, on the 
screen. 



FRUSTRATION (L2) 



GAME OF LIFE 
(L2+m/c language) 



- Test your reactions as you try to beat the computer's 
"clock". 

- This is the well-known and fascinating illustration of 
growth and decay of populations (civilizations?) , now 
written to run on your TRS-80. Machine language sub- 
routines have been used to speed up execution. You can 
observe up to one generation per second. 

STOCK RECORDING SYSTEM - This program, which will run in both Level 2 and Disk BASIC, 
(Disk/L2) enables the businessman to keep track of his stock, item by 

item. It can also be used as a simple data base management 

system. 



MONITOR IN BASIC (L2) 



Written in Level 2 BASIC, this monitor program allows you to 
examine and modify memory also to dump the contents of a 
block of memory to the screen or printer. It is absolutely 
essential if you want to enter our machine language programs 
but don't have a monitor such as T BUG. 



:.-. addition to all these programs, January's issue will also contain the first in a 
series of articles on Assembly language programming. If you are interested in this 
rascinating and powerful method of programming but have not known where to start, 
ir.is series of articles is for you. 
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SOFTWARE SECTION 

The listings for these programs are published in a separate section at the back of 
the magazine. This section explains what each program is all about and how to use it 

SUPER MASTERMIND - L1/4K 

If you are a Mastermind addict then this is the version you have been waiting for. 
Whereas Mastermind only has pegs of six different colours, Super Mastermind has up ta 
nine (not colours on the TRS 80 of course, but niombers 1-9) . With Mastermind you 
have four colours to find at any one time. With Super Mastermind you have up to 101 
But the best part of all is that the Computer does all the tedious work for you. It 
chooses the niombers and it works out how many you have placed in the right position 
and how many are correct but in the wrong position. It also works out your score an3 
gives you a progressive average score. All you have to do is use your powers of 
logic. If the unthinkable happens and you can't work out the answer, simply enter 
999 and the computer tells you. But that ends the session and wipes out your score. 

The listing at the back includes full instructions and takes 3822 bytes. That's 
about 240 more than a 4K system can handle. So, if you are entering this program 
into a 4K system we suggest you leave out some or all of the instructions. We have 
printed them separately so that you can read them without using the computer. 

To reduce the program size to 2368 bytes: 

Delete lines 40, 50, 810 and all higher lines. 
Change line 30 to F. C=l TO 1500: N. C 

LEVEL 2 - If you want to use this program in a Level 2 machine, enter it without 
abbreviations and with the following changes: 

Add line 10 DIM A (30) 

Add line 120 RANDOM 

Delete lines 95 and 97 
Don't forget to use PRINT i instead of PRINT AT. 

-00000- 



DIGITAL CLOCK - L1/4K 

This is an extension of the clock program published in the Level 1 Manual. However, 
it prints the time in 4cm. high digits and indicates whether it is AM or PM. It 
is also more accurate because the timing loop runs for a full minute, rather than 
one second . 

The timing variable is N in line 130. To adjust the accuracy of the clock, note 
the starting time, let it run for about 12 hours then note the time on the clock and 
the correct time. Work out the number of minutes elapsed since the start: 

A = elapsed minutes on computer 

B = actual elapsed minutes 
Then calculate a more accurate value of N: 

new N = old N x A/B 
Enter the new value of N into line 130 
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ar. exercise, why don't you write a small routine to do this calculation, 
.rrr.er useful addition would be an alarm which could print a message on the screen, 
.rr. on the cassette recorder or do both. When you have done this, write in and 
' 11 publish the best modification and send the winner a free copy of MICRO-80 

-00000- 



;N'AKE - L2/4K 

This program is a lot of fun for kids of all ages. It tests your reflexes and 
generates a lot of excitement. It starts off by drawing a large box on the screen 
inside which there is a short snake of ***'s moving across the screen. You use 
zhe arrow keys to make it change direction but, if you turn it back on itself or 
crash into the box, that's the end of you. At random intervals "mice" in the form 
of graphics blocks suddenly appear. If you make the snake eat one before it 
disappears then you score (you don't know how many points until after you've 
eaten it). If it gets away (disappears) then its value is subtracted from your score. 

As the game goes on, the snake gets longer and longer and moves faster and faster. 

HAPPY HUNTING! 

-ooooo- 

MERGE - L2/4K or 16K 

Have you ever wanted to add together two BASIC programs which you have stored on tape. 
Normally, you would CLOAD the longer one then have to type in the shorter one. Never 
again, the simple, 7 line program listed below, allows you to merge together two 
BASIC programs in your TRS 80. 

1 CLS 

2 PRINT "16549="; PEEK (16549) 

3 PRINT "16548=", -PEEK (16548) 

4 A= 17129 

5 B=A: A=PEEK(B+1)*256+PEEK(B) 

6 IF A > THEN 5 

7 POKE 16549, INT (B/256) .-POKE 16548, B-INT (B/256) *256 : END 

:t works because Level 2 BASIC stores a "start of program" pointer at 40A4H and 
40A5H (Decimal 16548 and 16549) . This pointer is initialised to 42E9H (Decimal 17129) 
during power-up. The start of program pointer is stored in RAM rather than ROM so 
chat it can be relocated to a higher address when DISC BASIC is loaded into RAM. The 
above program uses PEEK and POKE statements to do the same thing when a Level 2 
5--.SIC program is resident in memory. First, it prints out the existing value of the 
;cart of program pointer, so that you can restore it later. Then it searches for the 
first vacant position in RAM after the resident program and resets the start of 
crogram pointer to that address. Now, when you CLOAD a program, it will commence 
-:ading from this new address. Once it is loaded, you restore the pointer to its 
rricinal address and, low and behold, the two programs are merged. You can do this 
a; cften as you wish but make sure that the second program has higher line numbers 
ccan the first, the third higher than the second, and so on. 
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To merge two programs, use the following procedure: 

1. Key in or CLOAD the seven line program above. 

2. Run it. 

3. Write down the two addresses and their values which are printed on the screen 
(they should be 16549=66 and 16548=233) 

4. CLOAD the BASIC program to be added to the existing program. 

5. Using the keyboard, type in: 

POKE 16549,66 

POKE 16548,233 
(or whatever values were printed on the screen if you are not starting 
from the first program in memory) 

6. LIST the combined program. 

At this stage, you will have merged the seven line utility program with your BASIC 
program. To merge another BASIC program, repeat the above steps. When you have 
finished merging all your programs, kill lines 1-7. 

If some of the programs you wish to rr.ergs have similar line numbers, you can still 
use MERGE with the assistance of Tandy's ?^N~'.'' program. Load this into protected 
memory before loading MERGE, then use the following procedure :- 

Steps 1-4 as before. 

5 Use RENUM to renumber the new BASIC program^ so that all line numbers are 
above those in the resident BASIC prograiTi. 

6 POKE 16549,66 
POKE 16548,233 

7 LIST the combined program 

-00000- 



LOADER L2/16K (4K) 

Have you ever sat through a complete CLOAD of a long program, only to find that 
it hadn't loaded properly and you have to start all over again? This only has to 
happen once or twice and you never really trust that blinking asterisk again I 
Well, LOADER overcomes all that by printing out each byte of the BASIC program as 
it is loaded. You can see when the machine is loading rubbish, abort the LOAD 
and start again. 

In order to give you a chance to read them, program lines are displayed one after th( 
other, separated by a graphics block. Line numbers are not shown. 
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T rrc^ran is at the back of the magazine. There are two listings in HEX. One 
- frr a 4K machine, the other is for a 16K machine. To enter either listing you 
. .1 r.eec a monitor such as T BUG (or the monitor in BASIC we will publish next 
tr. . Follow the procedure below for the 16K version (4K shown in brackets). 

.-.r.swer MEMORY SIZE? with 31880 (19600) . This enables you to use the program 
-ere than once 

Enter T BUG 

Type M 7C90 xx 4C (4C90 xx ) 

Continue entering the values in the listing until you get to 7EE6 (4EE6) 
then enter "X": 7EE6 xx X (4EE6 xx X) 

Enter J 7D33 (4D33) 

' all is well, a copyright message will print out at the top of the screen and control 
.11 be automatically transferred to BASIC. 

•enever you wish to use LOADER, set your cassette recorder to PLAY and then press 
.e shift key and the down arrow at the same time. The cassette recorder will start 
inning and the program will be displayed on the screen as it loads. To abort 
;ading, just hit the BREAK key or use the RESET button (the BREAK key will only 
rk while loading is in progress) . If there is nothing on the tape, the RESET 
itton will have to be used. 

-.en loading has finished, LOADER will tell you the locations of the first and last 
tes of the BASIC program just loaded, in HEX. Some BASIC commands or errors 
:uld cause the entry pointer for LOADER to be changed or overwritten. In this case, 
•pe X=USR (0) or, if this fails type "SYSTEM" and answer the *? with /32051 (/19763) 
■.IS will reinitialise LOADER. 

.ze you have tested LOADER and proved that you have entered it correctly, you 
■.ould make a tape of it. Load T BUG again then: 

Set up cassette recorder to RECORD 

Type P 7C90 7EE5 7D33 LOADER (ENTER) (P 4C90 4EE5 4D33 LOADER (ENTER) ) 

BUG will punch a tape which can be loaded under the SYSTEM command using the 
. le name "LOADER" 

:.-DER can also be stored on disk using TAPEDISK. TAPEDISK parameters are 

(LOADER) :0 7C90 7EE5 7D33". To use it under DOS type LOAD "LOADER" then type BASIC 
' BASIC 2 and use the SYSTEM command as described above, to initialise it. 

;.-.2ER will occasionally generate error messages. If this happens during a LOAD, it 
jans that you have run out of memory. At other times, ignore them. Finally, don 't 
: te.-^pted to use the space between the top of LOADER (7EE5 or 4EE5) and the end of 
•-•■'., for another program. LOADER uses this area to set up a table and it would 
isrroy any other program resident there. 

-00000- 
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WORDPROC: A WORD PROCESSOR IN BASIC 

By: Hubert S. Howe Jr. Ph.D. 
Reprinted from TRS-80 Monthly Newsletter 
Published by H & E Computronics Inc. 
Box 149 New City, New York 10956 USA. 

INTRODUCTION 

WORDPROC is a Level 2 BASIC word processing program that enables you to create files 
that represent doc\ainents to be printed on your TRS-80. It's main features are: 

1. It is line-oriented. This means that every line of text has a line number 
associated with it, whether or not the line n\amber is printed. Line numbers 
are convenient references to the text. Lines can be moved, replaced, 
rearranged, etc. 

2. It allows entry of upper or lower case letters from your keyboard without 
modification to the TRS-80. 

3. Lower case letters can be printed properly if you have a line printer with the 
lower-case character set. Otheirwise, everything is printed as upper-case. 

4. Text files can be saved and loaded either on cassette tape or disk. 

5. Lines can be edited in a manner very similar to Level 2 BASIC. 

6. Text lines can automatically be right justified. 

7. There are provisions for adjustable page lengths, page numbering, line lengths 
and a special title to be printed at the top of each page. 

8. The program itself is in Level 2 BASIC so that you can study it to learn how 
it works and possibly modify it if desired. 

MODIFYING THE PROGRAM 

The standard version of WORDPROC is written to fit into a 16K Level 2 TRS-80. It 
has provision for 120 lines of text, which is sufficient for much business 
correspondence or short doc\aments. If you have 32K or 48K, you will probably want 
to expand it into your larger memory. This is accomplished by changing line 110, 
near the beginning of the program. It currently reads: 

110 CLEAR 7200: NL=120 

With 32K, you can expand to at least 200 lines, and with 48K to at least 400 lines. 
The amount of string space that you must clear is 60 (or the number of characters 
per line) times the number of lines. Thus, for 32K you could change line 110 to: 

110 CLEAR 12000: NL=200 

and for 48K it could be: 

110 CLEAR 24000: NL=400 
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THE PROGRAM 



".ere are basically two modes of operation in WOKDPROC : the FILL mode and the 

ryj-'JiND mode. FILL is used when you are entering text into the computer, and 

>M>L^MD at other times. When in FILL, you can return to COMMAND only by typing 
;hift-@" twice in succession. 

.er. in the COMMAND mode, the computer prints the word "COMMAND" and awaits your 
rcIy. The replies, all discussed in detail below, are either a single letter or 
-. entire word. The computer executes the command, which may require additional 
-.put from you, and returns for another one. 



"HELP" or "H" is a command provided in case you forget any of the commands. It 
prints the complete list of commands and their associated words in order to remind 
you. These are shown below: 

F FILL Add text to the buffer. 

? PRINT Print text on video display or line printer. 

Z CLEAR Clear buffer (erase all text) . 

?, REPLACE Replace text starting at existing line. 

: INSERT Insert text starting at empty line. 

~ DELETE Delete lines. 

y. MOVE Move lines. 

>; NUMBER Number line, eliminating blanks. 

Z EDIT Edit line. 

L LOAD Load text file from cassette or disk. 

S SAVE Save text file on cassette or disk. 

J JUSTIFY Right-justify text lines. 

H HELP help: Print commands. 

SET Set variables governing program options. 

FILL 



"FILL" or "F" enters the FILL mode, which you use to enter text into the computer. 
The line number is displayed at the left, and then the cursor flashes on and off 
over the current position in the line where you are entering text. If you are 
starting at the beginning, FILL begins at the first space in line J3 (zero) . If 
there is already text in the buffer, it starts after the last filled space, and 
any preceding lines are printed on the video display. The "cursor" used throughout 
-he program is not the same cursor used in BASIC but a graphics block that covers 
the entire space filled in by the letter. 

If you are typing in a word that goes off the end of a line (by exceeding the line 
length, which is set by default to 6)2 or by the SET command) , WORDPROC 
automatically removes the word from the preceding line and places it at the 
beginning of the next line so that the word will not be split. Later, the line can 
oe right justified by the JUSTIFY command. 
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During the FILL mode, the following keys have special functions: 

LEFT ARROW backspace 

RIGHT ARROW TAB five spaces to the right 

DOWN ARROW form feed (page eject) on line printer 

ENTER move to the next line (inserts no character) 

SHIFT LEFT ARROW backspace entire line 

SHIFT RIGHT ARROW fill to end of line with spaces 

SHIFT-@ (TWICE) return to COMMAND mode 

The following points should be noted about the use of these special keys: 

The RIGHT ARROW (TAB) key actually inserts five spaces into the line. 

The DOWN ARROW key will cause a page eject on the line printer (if your line printei 
responds this way to a form feed) , but does not affect the printing of the page 
number and title. 

When ENTER is typed, it does not insert any character into the line. If ENTER is 
typed at the beginning of a line, the line remains empty, but FILL proceeds 
to the next line. 

If you type SHIFT LEFT ARROW when the cursor is at the bottom of the screen, it 
appears to scroll to the next line but actually continues to fill the same line. 

The FILL mode is entered by both REPLACE and INSERT as well as FILL. The 
difference is that REPLACE and INSERT can insert lines of text anywhere a line 
number can exist, and they will stop as soon as existing text is reached, FILL 
always adds text to the end of the file. 

PRINT 

PRINT or P is used to print the text in the buffer, optionally on the line printer 
or video display. When the PRINT command is issued, the computer asks two 
questions: 

PRINT LINE NUMBERS (Y/N) ? 

LINE PRINTER OR VIDEO DISPLAY (P/V) ? 

You must reply "Y" in order for line numbers to be printed. Similarly, you must 
reply "P" for the line printer to be selected. When you select the line printer, 
the program automatically checks to see if the line printer is ready. If it 
is not, it prints the message: 

LINE PRINTER NOT READY. ABORT (Y/N)? 

If you reply "Y" a new command is requested. Otherwise, it asks you to press 
ENTER when ready, and repeats the printer test. You can never use the printer 
without first readying it; the program will never inadvertently "freeze up" as 
it will if you do a LLIST or LPRINT in BASIC (without a ready printer) . 

The printing on the video display is identical to that on the line printer, with 
the exception that only upper case letters are printed. In particular, the 
number of lines on the page is the same' the default number is 50 lines per page. 
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Nr' all these lines can be displayed on the screen at the same time, although they 

fit tomfortably onto a page. Therefore, it is useful to PAUSE during the 

yrir.ting process by typing "shift-?". (This is a normal feature of Level 2 BASIC). 

T.-.e program pauses and asks you to press ENTER before continuing at the end of 
■z-a-'- line of a multi-page printing. 

The TITLE and PAGE NUMBER are optionally printed at the top of each page. These 
^prions are controlled by the SET command. 

;; your TRS-80 is unmodified, holding down the SHIFT key while typing a letter 
produces a lower case letter: otherwise the letter is upper case. This is the 
reverse of a typewriter. Some printers (such as the SELECTRAPRINT) have been 
-odified so that they convert upper case into lower case and vice versa. 
'.•."hichever way your TRS-80 works, WORDPROC considers upper and lower case letters 
-o be distinct. This means that "A" is different from "shift-A" even though 
both are displayed as "A" on the screen. 

CLEAR 



CLEAR or "C" erases everything in the buffer. In addition, it restores all SET 
variables to their default values. 

It is not necessary to perform a CLEAR at the bef inning of a run. It is only 
necessary if you want to clear everything out and start again. 

LOADING a text file from cassette tape or disk also clears out anything in the 
buffer and fills it v.ith the n.aterisl read in. 

INSERT 

INSERT or "I" is used to FILL in new lines starting from any legal line n\nnber, 
provided that no text currently occupies the starting line. INSERT will operate 
just like FILL until you come to a line that is occupied with text, at which 
point it will automatically return to the COMMAND mode. 

REPLACE 

REPLACE or "R" is used to FILL in new lines starting from any legal line number, 
provided that text DOES exist at the starting line. The text at the starting 
line is replaced entirely. Following that line, REPLACE operates exactly like 
INSERT and continues to FILL new lines until you come to a line occupied with 
text, at which point it will automatically return to the COMMAND mode. 

DELETE 



DELETE or "D" is used to delete a range of lines from the text. Deleted lines 
are empty, but the line marker used to FILL continues to point to where it did 
before the DELETE. Therefore, to insert new text into the deleted lines, 
INSERT should be used rather than FILL 

MOVE 

MOVE or "M" is used to move a block of lines from one position in the buffer to 
another. The only limitation is that the position where the text is moved must 



MICRO-80 



P.O. BOX 213, GOODWOOD. S.A. 5034 AUSTRALIA page 11 
TELEPHONE (08)3818542 

consist of empty lines. If a new line is ever found that contains text, the 
MOVE is terminated, and only the lines that were moved prior to the error are 
moved. The lines from which the text is moved are replaced with empty spaces. 

When a MOVE begins, the computer asks: 

FIRST LINE TO BE MOVED? 
LAST LINE TO MOVE 
FIRST NEW LINE? 

If you were to reply to these questions, in succession, 1, 4, and 6, line 1 
would be moved to line 6, line 2 to line 7, line 3 to line 8, and line 4 to 
line 9. Lines 1, 2, 3, and 4 would become empty lines. If, in performing the 
move, the computer found that line 7 already had text in it, it would prints 

LINE 7 ALREADY OCCUPIED 

and stop the move. However, line 1 would have been moved to line 6. 

If you want to insert one or more blank lines into existing text, first MOVE 
the lines following the line where you want the blank line inserted down to a free 
area in the buffer, and then. MOVE them back to one or more lines following their 
original position. 

MOVE can also be used to rearrange the text lines, in order to change the order 
of paragraphs or for other reasons. 

NUMBER 

NUMBER or "N" is used to delete all blank lines ir. a ^ex. and close up the text. 
In addition, the lines are ren'jmbered fro- zerr and z'r.e line marker indicating 
the first empty line is moved tc the first line after any text lines. 

BLANK lines {lines containing only spaces) are different from EMPTY lines (lines 
containing nothing at all) . Only ELMPTY lines are eliminated by NUMBER. Therefore, 
blank lines can still be kept In a text. 

SAVE 

SAVE or "S" saves the text file, including the TITLE, all SET variables, and the 
complete text, on cassette tape or disk. When you type SAVE, the computer first asks: 

TAPE OR DISK )T/D)? 

If you are using cassette tape, the computer prints PRESS ENTER WHEN READY TO 
CONTINUE? and waits foryou to ready the tape before continuing. (If you want 
to abort the SAVE command, type BREAK and GOTO 200.) 

If you are using a disk, the computer asks FILESPEC? Here you must give the 
complete file specification. If you specify a drive number (such as ";0") the 
file specification must be enclosed in double quotation marks. 

Because of the way that Level 2 BASIC handles string variables, commas, colons, 
and blank spaces must be translated into special graphics characters so that the 
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text can be restored to its precise previous structure. Unfortunately, this 
translation process takes a significant amount of computer time to execute - 
possibly several minutes. When you save or load a text file, the computer may 
appear to be doing nothing, but if you interrupt execution and turn on the 
trace function you will see it going through a long loop. 

After the file has beer, saved on tape or disk, WORDPROC then retranslates the 
file back to its oricir.al condition so that execution may continue and you may 
add new text to the file. The retranslation, of course, also takes a significant 
amount of computer tiiT;e . 

Text files are stored ir. the same way whether on tape or disk. A file can be 
loaded from casse-te ar.d saved on disk or vice versa. 

LOAD 



LOAD or "L" loads a r reviously-saved text file from cassette tape or disk. 
LOADing the file restores everything to the condition it was in when the file 
was saved: all SET variables, the TITLE, and all text lines are retrieved. 
Any text presently in the buffer is lost. 

In other respects the operation of LOAD is the same as SAVE. 

SET 

SET (there is no single letter abbreviation) is used to set internal variables 
that control the line length, page length, spacing of text, page numbering, 
starting page number, and TITLE. When you type SET, the computer asks you a 
series of questions about setting each of these variables. If you do not want to 
change the present value, simply hit ENTER without typing a new value. Only 
the new values are inserted. 

The variables are as follows: 

LINE LENGTH? This indicates the number of characters in a line. The default 

is 6J3. LINE LENGTH can be any value up to 255. LINE LENGTH controls the 

manner in which words are separated on lines during FILL, and is used to set the 
right margin by JUSTIFY. 

PAGE LENGTH? This indicates the number of lines on a page. The default value 
is 5j3. During printing, the computer waits for you to press ENTER following 
the completion of each page. 

SPACING (l-SINGLE, 2 -DOUBLE ) ? This controls the spacing between lines during 
the printing. 1 is for single spacing, 2 for double, and any number that you 
input here would be used as the nvimber of spaces between lines. 

PAGE NUMBERING {1=YES, 0=NO) ? This variable controls the printing of both 
the TITLE and the page numbering. If you respond with zero, nothing is printed 
at the top of the page. But, if you reply with one, then both the TITLE (if 
present) and the page nvimber are printed at the head of each page. This line 
is not counted as a line of text. 
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STARTING PAGE NUMBER? This indicates the number of the first page of text. If 
you have long doc\iinents prepared as several text files, then they can still be 
combined into one final document by setting the starting page n\iinber to the right 
value. Page numbers are printed so that they are right justified over the right 
margin of the text. 

TITLE? The TITLE is a character string that is printed left-justified on the 
top line of each page of text, followed by the page number. It is printed only 
if the PAGE NUMBERING is on. The TITLE can appear to be centered if it begins 
with blank spaces. The same TITLE is printed on each page. If the TITLE 
contains any punctuation, it must be enclosed within double quotation marks 
when it is SET. 

EDIT 

EDIT or "E" is one of the most powerful commands in the word processor. It is 
used to edit a single line at a time in a manner very similar to Level 2 BASIC. 
When you type "E", the computer asks you the line number of the line you want 
to edit. If the line contains text, it is printed on the second line of the 
video screen with the cursor flashing over the first character. (If there is 
no text, an error message is produced.) What you then type at the keyboard 
determines how the line is edited. The following EDIT commands are recognized: 

SPACE - Advances the cursor to the next character in the line, unless you are 
at the last character in the line. 

ENTER - Terminates editing. ENTER MUST be typed at the conclusion of the 
editing process. 

LEFT ARROW - Backspace, unless you are at the firsr character. 

I - Insert characters. Following the 1, any characters that you type are 
inserted BEFORE the current cursor posiricn. You can exit from I by typing 
either ENTER, which terminates editing, or SKirT "V ARROW, which allows you 
to continue editing the line. If the line length equals or exceeds the maxim\im, 
you cannot start an Insert, but you can continue it past the end of a line. 

D - Delete character. Only ONE character is deleted, and all characters 
following that character are moved left one space. 

H - Hack and Insert. All text following the current cursor position is 
deleted, and whatever you type is added to the line. Note that the cursor does 
not flash in this mode, indicating that there is no text in the line at the 
position where you are adding text. 

X - End of line and insert. The cursor is moved to the first position following 
the last character in the line, and then the operation of X is identical to H. 

C - Change character. Only ONE character is changed, to whatever character is 
typed following the "C". 

S - Search character. The character following the "S" is searched for in the line 
and, if it is found, the cursor is moved to that position; otherwise, it is not 
moved . 
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During the EDIT process, upper and lower case letters are kept distinct, 
although everything is printed as upper-case on the screen. 

When text is being entered in the FILL mode, it is impossible to enter 
characters into a line past the line length, but in EDIT, only during the 
operation of "H" or "X". it is possible to go past the end of a line. This 
is legal, although the program prints a reminder after exiting from EDIT. 
If you want to delete the characters, you can re-edit the line. 

Once you enter "H" or "X" in EDIT, it is impossible to return to EDIT by 
SHIFT UP ARROW as during "I". If you want to Insert, you must use "i". It 
is impossible to Insert characters past the end of the line. 

JUSTIFY 



JUSTIFY or :J: is used to right justify all lines of text. Nothing is printed 
during the operation of JUSTIFY, although it can take a long time to execute 
if the program contains a long text. For this reason, it is suggested that you 
JUSTIFY each section as you enter it into the text, and check it as you go along. 

JUSTIFY inserts additional spaces into the middle of a line, only where there 
are already empty spaces, to make the right margin vertically aligned. If a 
line contains no spaces at all, it will not be justified. It will also not 
be justified if it ends in a period, question mark, exclamation point or 
right parenthesis. 

When a line contains only a few words, requiring many spaces to be inserted, it 
may be necessary to execute JUSTIFY more than once to complete the process. 

If a line ends with a blank space, it may appear not to be justified even though 
the program would consider it to be. To avoid this problem end the line with 
ENTER as you type it in, unless the word is split from one line and moved to the 
next. 

When you end a line with a SHIFT RIGHT ARROW, spaces are automatically inserted 
out to the end of the line. This is used when you want text such as titles, 
etc. to be centered on the page, or not to be justified for any reason. 

JUSTIFY physically changes the text in the buffer, so that it is then stored 
with the internal spaces. 

PROBLEMS 

There are several problems that must be taken into account when using WORDPROC. 
Most of these are a direct consequence of the fact that the program is in BASIC, 
and thus could be eliminated by translating the program into assembly language. 

First, you will probably notice immediately that the speed at which you can type 
characters into the file is not always fast enough, and some letters that you do 
type are not inserted into the text. This is because of the time that it takes 
BASIC to process each letter, which is very short, but sometimes not short enough. 
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More ar.r.oying than this, however, is. that sometimes the entire computer will 
appear to "freeze up" for a moment. As the buffer gets fuller and fuller, the 
likelmess that this will happen and the length of time it will take both get 
IcTiCer and longer. The reason for this is that BASIC must sometimes reallocate 
the string space while a job is running, even though many of the locations set 
aside for string space are still free. Nothing is really wrong when this 
happens, but it can disturb your use of the program. 

Another BASIC problem, which we mentioned above, was the necessity of translating 
special characters before executing a SAVE or after a LOAD. One reason why this 
was necessary was that, in designing WORDPROC, we wanted to use only Level 2 
BASIC so that anyone with a Level 2 computer could use the program, whether or not 
they have a disk. Some features of the program could be implemented more 
efficiently in DISK BASIC. 

Finally, another problem for which there is presently no solution is that WORDPROC 
does not allow you to underline or overprint characters. Such a feature would 
require a line printer that could execute a carriage return without a line feed 
(such as the DIABLO or SPINTERM) . Such a feature could easily be implemented 
in WORDPROC in the future if line printers with these capabilities become 
available to the average user. 

NOTES ON USING WORDPROC 



When using WORDPROC, it is convenient, and reconmended, that you type ENTER when 
nearly at the end of a line. This will prevent ending the line with a space, 
which may appear to be misaligned after a JUSTIFY. 

In order to center titles or other materials, use the SHIFT RIGHT ARUOW 
following the last character in the line. This will prevent the line from being 
justified, by filling it with spaces. 

To enter information at the beginning of a new page, use the INSERT command at 
a multiple of the page length (default is 50). That is, INSERT at 50. 100. 
15j3. etc. If you use the form feed character to eject pages, turn off the page 
numbering (by using SET) . 

Finally, if the program ever aborts with any BASIC error, you can retrieve 
anything presently in the buffer and return to the COMMAND mode by a GOTO 200 
statement. If you get an error in data transmission from a cassette tape or 
disk, you will find that the text may contain graphics in place of certain 
characters, after a GOTO 200. To untranslate the text and retrieve the proper 
characters, BREAK the program, type GOSUB 2400, and then CONT. 

-00000- 
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HARDWARE SECTION 

IMPROVE YOUR CTR-41 CASSETTE RECORDER 

If you have a Level 2 niachme and a CTR^41 cassette recorder, chances are that you 
have trouble loading croqrain^. There are several modifications you can make to 
your cassette recorder to improve this situation. 

1. Enable z'r.e speaker on both CLOAD and CSAVE so that you can hear what is going 
on and ser z'r.e level by ear. 

2. Conver. -he TONE switch to control the motor so that you can position the 

tape A-i-hcut removing plugs. 

3. Correc- a ground-loop which introduces hum into the system and degrades 
recorder performance. 

You can do all this in just a few minutes with a soldering iron, a Stanley knife, 
a Phillips head screwdriver, some wire and a resistor. But, if you have never done 
this sort of thing before, find someone to help you who has. WARNING: CARRYING 
OUT THESE MODIFICATIONS WILL VOID THE TANDY WARRANTY ON YOUR CASSETTE RECORDER. 
If the warranty has already run out, then you really have very little to lose and 
a lot to gain. Follow the instructions below: 

1. Remove all plugs from the recorder, including the black plastic Mic-jack dummy 
plug. Take off the battery cover and remove the batteries. 

2. Turn the recorder upside down on a soft surface, such as a newspaper, with the 
battery compartment facing away from you. 

3. Remove the three Phillips head screws from the bottom of the case and the 
two in the battery compartment. 

4. Lift up the rear of the case bottom a little then slide it forward about 1cm 
to clear the volume and tone controls. Put it aside. 

5. Remove the chrome carrying handle at the front of the recorder. 

6. Speaker Mod - Solder a 100 Ohm resister from point A to point B on the printed 
circuit board (PCS) . Stick a small piece of plastic insulating tape to the PCB 
under the resistor. Keep its leads short and make sure it lies flat on the 
insulating tape. 

7/ Motor Mod. - Cut the two tracks on the PCB which are connected to terminals 2 
and 3 of the TONE switch. Solder a 14cm piece of insulated wire to point C on 
the PCB. Run the other end forward, feeding it underneath the wires crossing 
the circuit board near its centre. Solder the other end to terminal 2 (the 
Centre) of the switch. 

Solder a 15cm long piece of insulated wire to point D on the PCB. There is a 
yellow wire here which should be left in place. Run the new wire alongside 
the one you have just installed and solder to terminal 1 of the switch (that's 
the one on the left which was previously unused) . 
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Now the recorder is permanently in the HIGH TONE mode and when the TONE 
switch is set to LOW, the recorder will act as normal, under computer control. 
However, when the switch is moved to the HIGH position, you can rewind, play 
and use fast-forward without removing any plugs. 

8. Ground-loop Mod - Cut the wide track on the PCB between the MIC and AUX jacks. 

Connect a 2 . 5cm long piece of insulated wire from the ground lug on the AUX 
jack to the ground lug on the EAR jack as shown in the diagram. 

9. Replace the chrome carrying handle, bevelled edge to the top of the recorder 

10. Reassemble the bottom case, remembering to slide it over the volume and tone 
controls before lowering it into position. Make sure that it fits correctly, 

11. Replace the five screws. The tv/o pointed ones go in the battery compartment 
holes. 



CTR-41 CASSETTE MODIFICATION 




CUT HERE 
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LETTERS TO THE EDITOR 

This space will be used in future issues to publish your letters. We'd like to 
know how you feel about the magazine, the sort of articles and programs you want 
us to publish, any useful tips you would like to pass on to other TRS-80 users and 
requests for help froin other readers to solve your problems. The space is here, 
please make use of it. 

-00000- 



DO YOU HAVE SOFTWARE TO SELL? 



iMICRO-80 is interested in buying original programs for publication. We pay from 
$15-$50 for a program, depending on our assessment of its appeal. As a guide, we 
would pay the lower figure for games and simple utility programs. We would pay 
more for business, educational, scientific and more comprehensive utility programs. 

MICRO-80 also intends to become one of the leading suppliers of TRS-80 software, 
both imported and produced locally. If you have written a program which you 
believe is worth a lot more than $50 because of its wide appeal or because it would 
offer very considerable financial benefits to users, then we could be interested in 
distributing it for you, on tape or disk. We would take responsibility for all 
production, advertising and distribution costs and would sign a royalty agreement 
with you. If it really is good, then you could make thousands of dollars from it. 
Some suggestions for programs which should sell : 

a machine language word processor which outperforms the Electric Pencil 
and sells for less 

a machine language monitor which outperforms T BUG and sells for less 

a set of programs which would teach the user to touch-type on the TRS-80 
keyboard. It needs to analyse mistakes and check typing speed 

a chess program which can beat Sargon and Micro Chess 

properly constructed educational programs to teach kids to read, do arithmetic etc. 

Programs must be original, or have such a major component of originality that they 
do not infringe any existing copyrights. You alone know that, so before we publish 
a program, we will send you a form to sign in which you declare that the program is 
your own original work and in which you give us permission to publish for the agreed 
figure. This means that, should a third party claim a prior copyright to the program, 
then it will be up to you to defend your copyright. 

HOW TO SUBMIT A PROGRAM FOR CONSIDERATION 

Send your program to us on CASSETTE or DISK, together with an application form from 
your copy of MICRO-80. Make sure you include the following: 

- YOUR NAME AND ADDRESS CLEARLY MARKED ON THE CASSETTE OR DISK 

The name of the program plus any special loading information, such as memory 
size, how to start a machine language program etc., clearly marked on the 
cassette or disk 
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- Whether it is Level 1, Level 2, Disk BASIC, System, T BUG (1 or 2) or 
edit or /assembler format, clearly marked on the cassette or disk. 

A separate note giving useful infoirmation such as start, end and entry-point 
for machine language programs 

A clear expalantion of what the program does anc how to use it. This will 
be published in MICRO-80 or used as the basis of the manual for a program 
to be published on tape or disk. 

A description of any changes that have to he rriade for different memory sizes etc. 

The size of memory and type of system needed to run it (eg. Level 1 4K, 
32K with 2 disk drives, etc.) 

Any simple changes which can be made to make it more flexible or useful. 

If your program is for publication in MICRO-80, then please avoid too many multi- 
statement lines unless they are essential to squeeze it into 4K. Remember, our 
readers have to key it into their machines 1 Please avoid using Level 1 
abbreviations too, if you can. That way Level 2 owners can also use the program 
easily. Level 1 programs should be designed to run in 4K and Level 2 programs in 16K. 

IMPORTANT : IF YOU WANT YOUR CASSETTE OR DISK I^TURNED , ENCLOSE A STAMPED, 
SELF -ADDRESSED ENVELOPE. 

-00000- 
COMING SOON 
Articles planned for the future include: 

- Build your own light-pen for only a fev; dollars. 

- Build an RS232 printer interface which works from your cassette 
port 

Plus, of course, all those great programs you, our readers, are going to 
write for us. 



APPLICATION FORM 
TO: MICR0-8e, PO BOX 213, GOODWOOD, SA 5034. Phone: (08) 381 8542 

Please send me: 

- CURRENT ISSUE $ 2.50 

- CURRENT ISSUE PLUS CASSETTE $ 6.00 

- 12 MONTH SUBSCRIPTION, MAGAZINE ONLY $24.00 

- 12 MONTH SUBSCRIPTION, MAGAZINE PLUS CASSETTE $60.00 

- START SUBSCRIPTION FROM (Dec. 79 is issue 1) 

(Make cheques payable to MICRO-80) 



NAME : 

ADDRESS : 

POST CODE 
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20 CLS:PRINT@ 470, "SUPER MASTERMIND' 

30 PRINT© 842, "DO YOU NEED INSTRUCTIONS (1=YES, 2=N0) * ; : INPUTC 

40 IF C C< > 1 )»( C< >2 ) THEN20 

50 IF C=l GOSUB 810 

60 CLS: F=0: G=0:H=0 

70 INPUT "HIGHEST NUMBER (2 TO 9)";fl 

75 IF CR<2) + (n>9) THEN7e 

80 INPUT "NUMBER OF COLUMNS C2 TO 10)" ;B 

85 IF (B<2)+(E>i0) THEN80 

90 REM * GENERRTE RRNDOM NUMBERS » 

95 INPUT "ENTER R NUMBER BETWEEN 1 RND 100" ;N 

97 FOR C=l TO N: J=RND(327G7 ): NEXT C 

100 CLS 

110 FOR C=l TO B 

130 R(C- 1 )=RND(R):PRINT<^ 4+2*C ."♦";: NEXT C 

140 PRINT TRBt 27); "CORRECT POSITN CORRECT URLUE" 

150 REM » INPUT R SET OF NUMBERS « 

168 J=0 

165 F0RE=1 TO 13 

170 PRINTS 64*E, " •;:F0RC=1 TO 4: PRINT" ".-.NEXTC 

180 PRINT* 1+64»E,E+J; 

190 FOR C=l TO B 

200 PRINT© 4+64*E+2*C. " . " ; -.RO+C j=A(C-l) 

210 NEXTC 

220 FOR 0=1 TO B 

230 PRIHT» 940, " " ; 

240 INPUT RC 19+C) 

245 REM PRINT 43 5PRCES 

250 PRINT© 905. ' 

260 IF R(19+C)=9S9 THEN340 

270 IF ( R( 19+CK 1 ) + ( RC. 19+C)>fl) THEN290 

280 GOTO300 

290 PRINT© 907, "REDO, URLUE MUST BE FROM 1 TO";R; " " ; : GOTO240 

300 IF C=B THEN 315 

310 PRINT© 3+64»E+2*C, R( 19+C );"."; : NEXTC 

315 PRINT© 3+64»E+2»C, R( 19+C ) ; 

320 NEXTC 

330 GOTO440 

340 REM ♦ PRINT HIDDEN NUMBERS » 

350 C=B: PRINT© 5+64*E,"THE CORRECT RNSWER IS:-" 

360 F0RC=1 TO B 

370 PRINT© 67-i-64»E+2»C,R( C-1); : NEXTC 

380 PRINT -.PRINT TRB(5);"THRT IS THE END OF THIS SESSION." 

390 PRINT TRB(5); : INPUT-DO YOU WRNT TO PLRY RGRIN (1=YES, 2=N0)";C 

400 IF (C=1)+(C=2) THEN430 

410 PRINT TRB(5); : INPUT-PLERSE ENTER 1 FOR YES, 2 FOR NO";C 

420 GOTO400 

430 ON C GOTO 60,700 

440 REM ♦ CHECK FOR CORRECT POSITION » 

450 PRINT TRB(27);: FOR C=l TO B 

460 IF R(19+C)<>R(9+C) THEN488 

470 PRINT"* ";: Rf9+C)=0: R( 19+C)=0 

480 NEXTC 

490 REM * CHECK FOR CORRECT SOLUTION » 

500 F0RC=1. TO B 

510 IF RC9+Cv:m3 THEN720 

520 NEXTC 

530 REM * SCOPING ROUTINE « 
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540 F=F+E+J:G=G+i 

558 H=r/G 

560 PRINT:PRINT"C0NGRftTULftT10NS MftSTERMlND ! YOU WORKED IT OUT IN ONLY"; 

570 PRINTE+J;:1F E+J=l THEN590 

580 PRINT "TRIES. ■ :GOTO600 

590 PRINT "TRY. " 

600 E=l'. C=0 

610 PRINT.-PRINT TftBf7);-Y0U HRUE PLRYED";G;: IF G=l THEN 630 

620 PRINT-GRMES THIS SESSION": GOTO640 

630 PRINT "GRME THIS SESSION" 

640 PRINT TRB(7 ); "YOUR ftUERRGE SCORE IS" ; INTf. 10*H )/ 10; : 1FH=1THE^46B0 

650 PRINT "TRIES PER GRME . " : GOTO 670 

660 PRINT "TRY PER GRME." 

670 PRINT :PRINTTRBC7); "DO YOU WRNT TO TRY RGRIN ( i=YES, 2-NO ) * ; : INPUTC 

680 IF (C=i) + (C=2) THEN 690 

685 INPUT "PLERSE ANSWER WITH 1 OR 2.";C 

687 GOT 0680 

690 ON C GOTO 100,700 

700 CLS: PRINTS' 465, "'BYE FROM SUPER MRSTERMIND. " 

710 FOR C=l TO 1500: NEXTC: CLS : END 

720 REM ♦ CHECK FOR CORRECT URLUE ♦ 

730 PRINT TRB(43); 

740 FOR C=l TO B: FOR D=l TO B 

750 IF R(, 19+0=0 THEN 790 

760 IF RC la+OORt 9+D) THEH780 

770 PRIN-t"0 ";:RC9+D)=0: D=B 

780 NEX'I D 

790 NEXT C 

800 NEX1E 

805 J=J+13: G0TO165 

810 REM ♦ INSTRUCTIONS * 

820 CLS 

330 PRINT "SUPER MRSTERMIND RLLOWS YOU TO PIT YOUR WITS RGRINST THE* 

840 PRINT " COMPUTER. ": PRINT -.PRINT "THE COMPUTER SELECTS R SERIES OF*; 

850 PRINT" NUMBERS RT RRNDOM RND 'PRINTS' THEM INi^ISIBLY RT"; 

860 PRINT" THE TOP OF THE SCREEN. YOUR TRSK IS TO FIND" 

870 PRINT "THE URLUE OF ERCH NUMBER RND ITS CORRECT POSITION." 

880 PRINT: PRINT "TO DO THIS, YOU ENTER NUMBERS ONE RT R TIME ftND" ; 

890 PRINT" THE COMPUTER" : PRINT "PLRCES THEM IN R ROW ON THE SCREEN"; 

900 PRINT", UNDER THE INUISIBLE ONES . " 

910 PRINT "IT THEN COMPRRES THE TWO SETS OF NUMBERS. FOR ERCH"; 

920 PRINT" CORRECT" : PRINT 'NUMBER IN ITS CORRECT POSITION, THE"; 

930 PRINT" COMPUTER WILL PRINT RN *,": PRINT "FOR ERCH OTHER CORRECT"; 

940 PRINT" NUMBER IN THE WRONG POSITION, THE" 

950 PRINT "COMPUTER WILL PRINT RN 0. THE GRME ENDS WHEN YOU"; 

960 PRINT" EXRCTLY" : PRINT "DUPLICRTE THE INUISIBLE NUMBERS." 

970 PRINT:PRINT TRB( 18 ); "ENTER RNY NUMBER TO CONTINUE" ;: INPUTC 

980 CLS : PRINT : PRINT 

990 PRINT "YOU MRY CHOOSE RNV NUMBER OF COLUMNS, UP TO 10 RND"; 

100e PRINT" THE MRXIMUM" : PRINT "URLUE FOR THE NUMBERS, UP TO 9."; 

1010 PRINT" (0 IS NOT R URLID NUMBER ).": PRINT " THE MORE"; 

1020 PRINT" COLUMNS YOU HRUE RND THE HIGHER THE MRXIMUM URLUE,"; 

1030 PRINT" THE" : PRINT "HRRDER THE GRME.":PRINT 

1040 PRINT "RT RNY TIME, YOU MRY ENTER 999 , WHEN THE COMPUTER"; 

1050 PRINT" WILL" : PRINT "DISPLRY THE INUISIBLE NUMBERS RND THE GRME"; 

1060 PRINT" WILL END. " -.PRINT: PRINT TRB( 26 ) ; " GOOD LUCK":PRINT 

1080 PPINT:PP1NT TRB( 18 ):" ENTER RNY NUMBER TO CONTINUE" ;: INPUTC 

1090 CLS: RETURN 
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* DIGITRL CLOCK ♦ 


5 DIM R( 15:1 


10 CLS 


20 INPUT "ENTER 1 FOR ftM . 2 FOR PM";R 


30 IFCfi<>l)»(R<>2-i THEH 10 


40 flS='RM' :B»="PM' 


50 INPUT "THE HOUR IS-;E 


60 F 


• = INT(E/i0) :E=E-( F*10) 


70 J 


■NPUT-THE MINUTES RRE * ; C 


75 CLS 


80 D=INT(C/10 ) :r=C-^ B*10 ~J 


90 R<: i:)=C: R(2) = B: Ri 3 1=E:RC 4)=F 


100 


R( 11 )=C+l: R'. 12 J=D+l: R.' 13)=E+1:R( 14)"F+1 


110 


GOTO 330 


12a 


R( 11)=C: R( 12 ^=B; R! 13 '=E: R' 14)=F 


130 


N=14736 


150 


FOR M=l ^0 N:NEXT « 


160 


C=C-r. 


170 


IF OS Go-^oise 


180 


GOTO 400 


190 


C = 


200 


D=D+1 


210 


IF D>5 GOT 0230 


220 


GOTO 400 


230 


D=0 


240 


E=E+1 


250 


IF E>9 GOTO270 


260 


GOTO290 


270 


E=0 


280 


F=F+1 


285 


IF (F-1)*(E=3.> THEN 290 


267 


GOTO 400 


290 


C=0:D=0:E=1:F=0 


300 


IF R=l THEN 320 


310 


fi=l:GOTO 330 


320 


R=2 


330 


ON R GOTO 340,350 


340 


PRINT » 502, R«: GOTO 400 


350 


PRINT 9 502, B« 


400 


G=92:H=12:IF CO0 THEN 420 


410 


GOSUB950 


420 


ON C GOSUB500, 5 40, 600, 650, 700, 750, 800, 850, 900 


425 


IF D=R( 12) THEN 136 


430 


G=74:IF DO0 THEN 440 


435 


GOSUB950 


440 


ON D GOSUB500, 540, 600, 650, 700, 750, 800, 850, 900 


445 


IF E=R( 13 ! THEN 120 


450 


G=42:IF EO0 THEN 470 


460 


GOSUBSSe 


470 


ON E GOSUB500,540,B00, 650,700,750, 800,850,900 


475 


IF F=R( 14 ) THEN 120 


477 


G=24 


480 


ON F+1 GOSUB 950 , 500 , 540 , B00 , B50 , 700 , 750 , 800 , 850 , 900 


439 


GOTO 120 


500 


REM * PRINT 1 * 


505 


GOSUB 10000 


510 


GOSUB600B 


515 


RETURN 
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540 


REM ♦ PRINT 2 * 


545 


GOSUB 10000 


550 


GOSUB9000 


S60 


GO5UB500e 


570 


GOSUB7000 


575 


RETURN 


600 


REM ♦ PRINT 3 ♦ 


S05 


GOSUB 10000 


B10 


GOSUB9000 


620 


GOSUB7000 


G30 


GOSUB8000 


635 


RETURN 


650 


REM ♦ PRINT 4 ♦ 


655 


GOSUB 10000 


650 


GOSUB4000 


670 


GOSUB2000 


€80 


GOSUB6000 


685 


RETURN 


700 


REM * PRINT 5 * 


705 


GOSUB 10000 


710 


GOSUB9000 


7Ze 


GOSUB4000 


730 


GOSUB8000 


740 


RETURN 


750 


REM ♦ PRINT 6 * 


755 


GOSUB 10000 


7S0 


GO5UB9000 


770 


GOSUB4000 


780 


GOSUB5000 


790 


GOSUB8000 


795 


RETURN 


800 


REM ♦ PRINT 7 * 


805 


GOSUB 10000 


810 


GOSUB 1000 


VM 


GOSUB7000 


830 


GOSUB80B0 


B40 


RETURN 


850 


REM ♦ PRINT 8 * 


BBS 


GOSUB 10000 


860 


GOSUB9000 


870 


GOSUB4000 


B75 


GOSUB5000 


680 


GOSUB7000 


885 


GOSUB8000 


890 


RETURN 


^0 


REM ♦ PRINT 9 ♦ 


905 


GOSUB 10000 


910 


GOSUB9000 


920 


GOSUB4000 


930 


GOSUB7000 


940 


GOSUB8000 


945 


RETURN 


950 


REM ♦ PRINT ♦ 


955 


GOSUB 10000 


960 


GOSUB 1000 


965 


GOSUB3000 


970 


GOSUB4000 


375 


GOSUBS000 
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1:^4 



'98(2 
985 
1000 
1010 
10Z0 
2000 
2010 
2020 
3000 
3010 
3020 
4000 
4010 
4020 
5000 
5010 
5020 
5000 

g0ie 

B020 

7000 

7010 

7820 

8000 

8010 

7508 

8820 

9000 

3010 

9020 

10000 

10010 

10820 

10030 

10040 



GOSUB700e 
GOSUB8000 : RETURN 
REM ♦ TOP HOP. LINE ♦ 
Y=H:FORX=G TO G+ 12: SETC X, Y ) : NEXTX 
RETURN 
REM * MIDDLE HOR. LINE ♦ 
Y=H+5:F0RX=G TO G+ 12: SET( X, Y ) : NEXTX 
RETURN 
REM * BOTTOM HOR. LINE « 
Y=H+10:FORX=G TO G+12: SET( X, Y ) : NEXTX 

RETURN 
REM * TOP LEFT UEPT . LINE * 
X=G:FOPY=H TO H+5 : SET( X . Y ) : NEXTY 

RETURN 
REM « BOTTOM LEFT UERT.LINE ♦ 
X=G:F0RY=H+5 TO H+ 10 : SET ( X , Y ): NEXTY 

RETURN 
REM ♦ CENTER UERT . LINE * 
X=G+6:F0RY=H TO H+10 : SET C X,Y ): NEXTY 

RETURN 
REM* TOP RIGHT UERT . LINE * 
X=G+12:F0RY=H TO H+5 : SETC X ,Y ): NEXTY 

RETURN 
REM * BOTTOM RIGHT UERT. LINE * 
X=G+12:F0RY=H+5 TO H+ 10 : SETC X . Y ): NEXTY 
RETURN 
RETURN 
REM * RLL HOR. LINES ♦ 

FORY=H TO H+10 STEP5:F0RX=G TO G+12: SET ( X, Y ): NEXTX: NEXTY 
RETURN 
REM * CLERR OLD NUMBER ■» 

FOR Y=H TO H+10 STEP S:FOR X=G TO G+ 12 : RESETC X , Y ) 
NEXT X:NEXT Y 

FOR X=G TO G+12 STEP S:FOR Y=H TO H+IB : RESETC X, Y ) 
NEXT Y:NEXT X: RETURN 



DUE TO R LRST MINUTE SYSTEM FRILURE, WE HflUE HRD TO CONVERT 

SUPER MRSTERMIND RND DIGITRL CLOCK INTO LEUEL 2 FORMRT IN 

ORDER TO PRINT THEM. THE ONLY CHRNGES LEUEL 1 USERS NEED 

TO MRKE, RRE TO USE RBBREUIRTIONS (ESSENTIRL TO FIT SUPER 

MRSTERMIND INTO A 4K HRCHINE) RND TO TYPE *P. RT" INSTEAD 

OF "PRINT RT ■ . 

LEOEL 2 USERS MUST STILL MAKE THE CHRNGES EXPLRINED ON 

PRGE 3. 

UJF RP0L0GI5E FOR RNY INCONUENIENCE THIS MIGHT CRUSE OUR 

RERDERS. THE CRSSETTE IS, OF COURSE, UNRFFECTED RS IT 

CONTRINS BOTH LEUEL 1 RND LEUEL 2 UERSIONS. 
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"•'COPYRIGHT 1979: PETER GRRHRM Hf^RTLEY , 57 flRIN RUE. ,FREWVILLE, SOUTH AUSTRftLlA. 

1 GOT 032 

2 FORK-0TOKK:D«=USKEY»: IFD»-"G0T04 

3 S=RSC( DS ) : 1FS< >91RNDS< >1BR»SDS< >9RNDS< >8G0TO4 :ELSE2-S 

4 NEXT 

5 IFZ=10Y=V+1 
G IF2-9X«X+2 

7 IF2=8X-X-2 

8 IF2=9iY-Y-l 

9 M=15359+( Y )*64+X: C=PEEK( M ) : IFC-191G0SUB27 

10 IFC-420RC-35GOT01B 

1 1 POKEM , 42 : KK-KK - . 25 

12 K1=K1+. 125:IFK1>330THENK1=330 

13 Rl-Rl+1: IFRl>KlTHENRl-0 

14 POKERCRl ),32: R(R1 )-M:R2=RND( 100): IFR2>94G0SUB29 

15 irR2 C 85GOSUB30 : G0T02 : ELSEG0T02 

16 P=(Y*64+X):Z=RNDC5):0NZG0SUB17, 18, 19, 19 , 20, 21 : G0T022 

17 D»- " CRUMP 1 • : RETURN 

18 D*=-YRRO0Hi " : RETURN 

19 Df-"BRNG' ■: RETURN 

20 D«--SMRSHi ■: RETURN 

21 D«="THUD! -tRETURN 

22 lf"X>57THENX«X-9:G0T016:ELSEPRINT»P,D«; :D»-' " : FORT -0T 05000: NEXT : CLS: PRINTCHR»( 
23): PRINT "VOUR SCORE WRS' ;H: PRINT : PRINT *PLRY RGRIN?" ; 

23 Df-* ■ :Df-INKEYf :IFDf-"-23 

24 IFt)«=-Y-THENRUN41 

25 IFD»< >"N-23 

26 CLS :PRINTCHR«( 23): PRINT 'BYE FROM SNRKE. ..": FORT -0TO5000: NEXT : CLS: END 

27 R3-RNDC20)»5:H-H+R3:PRINT»984, ' SCORE" ;H; ■««««***««**• ; : RETURN 

28 Xl-RNDC30)»2-t-l : Yl-RNDC 11 ) + 1 : M-15359+X1*2+Y1«64+ 1 : RETURN 

29 G0SUB28: IFPEEKC M )-32THENPOKEM , 131 : RETURN 

30 G0SUB28: IFPEEKC M)-191THENP0KEM , 32 : R2-RND( 40 )»5: H=H-R2: G0T027 

31 RETURN 

32 CLS:PRINT»532,CHR»(23)-, "SNRKE* : FORT -0TO200e : NEXT 

33 PRINT: PRINT: D«=- ■ :PRI NT 'DO YOU REQUIRE INSTRUCTIONS'?' : PRINT 

34 D«-INKEY«:IFD«<>'Y-RNDD»< >-N-34 

35 IFDf-*N'41 

36 CLS: PRINT: PRINT -THIS IS R GRME OF SKILL - WITH JUST R LITTLE BIT OF CHftNCE":P 
RINT'THROWN IN FOR INTEREST ...': PRINT : PRIM 'THE GRME IS PLRYEL WITHIN THE BOUNDfl 
RIES (DRRWN ON THE SCREEN )": PRINT ' RND THE PLRYER IS REQUIRED TO CONTROL fl SNftKE 
OF ♦»♦♦♦•♦♦♦ BY- 

37 PRINT- SKI LFULL USE OF THE FOUR KEYS MRRKED WITH RRROWS ..." :PRINT : PRINT* IF THE 
HERD OF THE SNRKE SHOULD COLLIDE WITH THE BOUNDRRY, *: PRINT -OR WITH ANY PART OF 

THE SNRKE ITSELF... THE GRME ENDS,": PRINT 

38 FORT-0TO8000:NEXT: INPUT -PRESS << ENTER >> TO CONTINUE. .." -.DS : CLS 

39 PRINT: PRINT: PRINT -FROM TIME TO TIME TRRGETS WILL APPEAR ON THE SCREEN ...*: PRI 
NT-YOU RRE REQUIRED TO HIT THESE IN ORDER TO INCREASE YOUR SCORE. *: PRINT 'EACH TA 
RGET HAS fi LIMITED LIFE... IF IT ISN'T HIT BEFORE ITS* : PRINT'LIFE EXPIRES... YOU 
R SCORE IS DEBITED 

40 PRINT -T W I C E ITS URLUE .-; PRINT "RS THE GRME PROGRESSES THE SNAKE WILL GRAB 
UALLY INCREASE IN" : PRINT "LENGTH , AND THE SPEED OF THE GAME WILL INCREASE. ..": PRI 
NT :FORT-0T 07000: NEXT: PRINT -G D LUCK !': FORT -0TO4000: NEXT: G0T041 

4 1 CLERR200 : RANDOM : CLS : POKE 1 6553 , 255 

42 B»»STRINGf(63, •♦- )+" * : F0RK-1T015:PR1NTB«; :NEXT :B»-STRINGt(63, •** ):PRINTB«; :B 
$--*-+STRlNG«CBl, • * ) + -♦ • :PRINT»64, •" ; : F0RK-1T013: PR1NTB«; :NEXT 

43 CLEAR 10 : DEF INTM . R , S , X , Y : DEFDBLH : SU-64 : SH-2 : DIMRC 330 ) : KK-50 : X-RNIK 15 )*2+15 : Y-R 
NDC 3 ) + 4 : 2-RND( 4 ) : 0NZGOSUB44 , 45, 46, 47 : FORM- 15423T01B383STEP64 : POKEM, 128: NEXT: GOTO 
9 
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44 Z=91: RETURN 

45 Z= 10: RETURN 

46 Z=3: RETURN 
4? Z=8: RETURN 

48 D»=1NK.EY«: 1FD«=" ■ 48 

49 2=RSC(D« ) : PRINTD*; Z; ■ 



; :G0TO48 



LOfiDER - IBK. 



7C30 
7Cfi0 
7CB0 
7CC0 
7CD0 
7CE0 
7CF0 
7D00 
7D10 
7D20 
7B3B 
7D40 
7D50 
7D60 
7D70 
7D80 
7D90 
7DR0 
7DB0 
7DC0 
7DD0 
7DE0 
7DF0 
VE00 
7.E10 
7E20 
7E30 
7E40 
7 ESQ 
7EG0 
7E70 
7E80 
7E3e 
7ER0 
7EBe 
7EC0 
7ED0 
7EE0 



4C 
57 
37 



4r 

43 

39 



20 5C 
43 43 
43 4r 
58 58 
58 48 
53 50 



54 

47 



ZE 



20 40 

3E C3 
8E 40 
88 7C 
ii 00 
40 E5 
CD 38 
35 02 
CD 35 
23 7C 
3E BF 



D0 
02 



7E 
B7 



CD F8 
IB EB 



01 

81 
7C 



21 
C8 
21 



E2 3F 



40 

EB 
CB 
CB 
7E 



E5 
7E 
3F 

3r 

C9 



C3 FD 



E5 
4D 



21 
7D 



41 
4E 

20 
20 
20 
4E 
58 
20 
45 
50 
20 
11 
32 
C3 
E5 
3C 
DD 
02 
DD 
02 
FE 
77 
05 
20 

01 

7r 

50 

18 
CIJ 
CD 
23 
B7 
CB 
CB 
FE 
El 
54 



44 45 
20 50 
2E 28 
54 4F 
50 52 4F 
53 20 
48 20 
20 4C 
20 3C 



20 57 
CD 39 

00 3C 
33 40 
CD E3 
D5 C5 

01 2E 
El 22 
CD 35 
77 00 
DD 77 
3F 38 
23 CD 
03 B7 
RB DD 
18 36 



40 
IR 



77 
16 

F3 
7C 



23 
11 
EB 
11 



8D 7E 
23 23 
20 EC 

3F CB 



3F 
0R 



CB 
38 



DD El 
7C ED 



52 20 32 

41 41 59 
48 49 54 

20 53 54 
47 52 

3R 20 53 
2C 20 45 
4F 41 44 

42 52 45 
48 49 4C 
7D C3 19 

21 90 7C 

22 34 
03 FE 
F5 DD E5 
00 ED B0 
8C 7C CD 
02 FE D3 
DD 23 10 
00 DD 23 
E3 7D FE 
35 02 DD 
20 B8 CD 

22 F9 40 
E5 D6 80 
13 IR FE 
00 7F 7E 
73 23 72 
C0 3F 01 
2R BE 7C 

23 7E B7 
23 7E B7 
3F CD B2 
3F CB 3F 
06 D6 09 
Fl CI Dl 
52 El D0 



2E 33 
20 28 

20 3C 
41 52 
41 4D 
54 41 
4E 44 
45 52 
41 4B 
45 20 
IR CD 
01 3D 
RF 32 
C2 DD 
FD E5 

21 FR 
2E 7E 
28 F9 
FB 3R 
B7 28 



20 42 
43 29 

53 48 

54 2E 
20 4C 
52 54 
20 3D 



20 
3E 
52 



32 
20 
45 



C9 01 
00 ED 
15 40 
7E ED 
CD C9 
3F 22 
3E 
40 



F0 
77 



38 
00 



35 02 
DD 22 



87 
5E 
EB 



26 
30 
80 



23 EB 
37 00 
11 F0 
20 FB 
28 37 
7E "l^C 
CD B2 
F6 40 



El 
3E 



ED 
07 



F3 
21 
40 38 
15 FE 
DE 21 
DD 23 
DD 77 
FB 40 
7F 6F 
8E 77 
C4 44 
C9 DD 
ED B0 
3F CD 
23 Di 
2B 18 
E6 0F 
7E 7D 
18 02 
7E 8R 
C3 F4 



59 20 
20 20 
49 48 
29 42 
4F 43 
20 3D 

20 58 
2E 33 
54 4F 
41 44 

21 40 
B0 21 
21 33 
73 BR 
01 21 
20 40 
00 CD 
3C 06 
E6 04 
80 30 
40 3C 
DD E5 
00 DD 
DD 22 
5E 23 
18 FB 
7E 23 
2B DD 
2R R4 
8D 7E 
EB 73 
E4 7C 
CD B2 
E6 0F 
FB 30 
7C C3 
IF E5 



45 44 

31 39 
54 3E 
41 53 
41 54 
20 58 
58 58 
20 54 
20 53 
49 4E 
3C 22 
63 7D 
7D 22 
7C 31 
04 7D 
2R R4 
12 02 
04 CD 
20 44 

46 77 
18 D9 
Dl CD 
23 06 
FD 40 
56 El 
01 D0 
0B 78 

22 8E 
40 11 
2R R4 

23 72 
CB 3F 
7E 7D 
CD B2 
12 13 
CC 06 
F5 CD 



El 



;3 FE 



4090 
4Cft0 
4CB0 
4CC0 
4CD0 
4CE0 
4CF0 
4t)00 
4D10 
4020 
4D30 
4D40 
4D50 
4DS0 
4D70 
4D80 
4D30 
4DF»0 
4DB0 
4DC0 
4DD0 
4DE0 
4Dr0 
4E00 
4E10 
4E20 
4E30 
4E40 
4E50 
4EB0 
4E70 
4E80 
4E90 
4Eft0 
4EB0 
4EC0 
4ED0 
4eE0 
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LORDER - 4K. 

4C 4F 41 44 45 52 20 32 2E 33 20 42 53 20 45 44 

57 49 4E 20 50 41 41 59 20 28 43 29 20 20 31 33 
37 39 20 2E 28 48 49 54 20 3C 53 48 49 46 54 3E 
20 5C 20 54 4F 20 53 54 41 52 54 2E 29 42 41 53 
49 43 20 50 52 4F 47 52 41 4D 20 4C 4F 43 4 1 54 
49 4F 4E 53 20 3f=( 20 53 54 41 52 54 20 3D 20 58 

58 58 58 48 20 2C 20 45 4E 44 20 3D 20 58 58 58 

58 48 20 20 4C 4F 41 44 45 52 20 32 2E 33 20 54 

59 50 45 20 3C 42 52 45 4 1 4B 3E 20 54 4!^ 20 53 
54 4F 50 20 57 48 49 4C 45 20 52 45 41 44 43 4E 
47 2E 20 CD 39 4D C3 18 1ft CD C9 01 21 40 3C 22 
20 40 11 00 3C 21 90 4C 01 3D 00 LD B0 21 B3 4D 
3E C3 32 33 40 22 34 40 mF 32 15 40 21 33 4D 22 
8E 40 C3 CD E3 03 FE IR C2 DD 4E ED 73 8R 7C 31 
88 7C E5 D5 C5 F5 DD E5 FD E5 CD C9 01 21 04 4D 
11 00 3C 01 2E 00 ED B0 21 FR 3F 22 20 40 2R R4 
40 E5 DD El 22 8C 7C CD 2E 4E F3 3E 00 CD 12 02 
CD 96 02 CD 35 02 FE D3 28 F9 21 40 3C 06 04 CD 
35 02 DD 77 00 DD 23 10 F6 3R 40 38 EB 04 20 44 
CD 35 02 DD 77 00 DD 23 B7 28 15 FE 80 30 46 77 
23 7C FE 3F 38 E3 7D FE FE 38 DE 21 40 3C 18 D3 
3E BF 77 23 CD 35 02 DD 77 00 DD 23 DD E5 Dl CD 
D0 4E 06 03 B7 20 B8 CD 35 02 DD 77 00 DD 23 06 
02 B7 20 RB DD 22 F8 40 DD 22 FB 40 DD 22 FD 40 
CD F8 01 18 36 E5 D6 80 87 26 7F 6F 5E 23 56 El 
IR EB 7F 77 23 13 IR FE 5l 30 8E 77 18 FG 01 D0 
01 21 50 16 11 00 7F 7E E6 80 C4 44 4E 23 0B 78 
81 C8 18 F3 EB 73 23 72 23 EB C9 DD 2B DD 22 8E 
7C 21 CD 4C 11 C0 3F 01 37 00 ED B0 2R R4 40 11 
E2 3F CD 8D 4E 2R 8E 7C 11 F0 3F CD 8D 4E 2F« R4 
40 E5 23 23 23 23 7E B7 20 FB 23 Dl EP "^3 23 ''2 
EB 7E B7 20 EC 23 7E B7 28 3" 2B IB E-^ 7C CP 3F 
CB 3F CB 3F CE 3F CD BZ 4E ?C EB 0F CD B2 ^Z 7D 
CB 3F CB 3F CB 3F CB 3F CD B2 4E 7D EG 0F" CD B2 
4E C9 FE 0fl 38 06 D6 09 FE 40 18 02 ^G 30 12 13 
C9 FD El DD El Fl Ci Dl El ED '^B 8R 7C C3 CC 06 
E5 21 54 7C ED 52 El D0 3E 07 C3 F4 IF E5 F5 CD 
4D 4D Fl El C3 00 



CONTlNURTlOrS OF ' WORDPROC . 

3090 IFL>=LPlTHE1S200ELSE3010 

3100 Lf=LEFT«CR»(L ) , 1) : R«-RIGHT«( R«C L) , LEM( R«( L) )-l ; 

3110 I-l-l :GOTO3130 

3120 L«-LEFT*C R«C L) , J ) : R«=R1GHT»C R«C L ') , LEN( R$( L) ) - J ) : J=J+1 

3130 R»(L)=L«+B«+R»:RETURM 

3200 GOSUB3250 

3210 M>-CHR«(M- 128):GOTO3230 

3220 GOSUB3250: M«=CHR»C RSC( M» )+128 ) 

3230 R$(,L )=L»+M«+R»: RETURN 

3250 L»=" ■ : 1F1>1THENL»=LEFT»1 R«(L),I-1 '; 

3260 R*=" : IF1<LENCR«(L) )THENR»=R1GHT«C R«( L ■) ,LEM(R«CL))-I ) 

3270 RETURN 
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•18 CLS:PRINT*340, "BflSIC WORD PROCESSOR" 

20 REM COPYRIGHT <C> 1979 BY HUBERT S. HOWE, JR. 

100 DEFlNTR-2 

lie CLERR720e:NL«12e v 

120 DIMftSCNL'.' 

130 C=0: S=l:L=0:Lft=e.:SF=l:PN=l:PG=l:PL=50-. LL=60:T»=" 

140 B$=' "•.BB»=" •:CC$=CHR»( 143):BR$=CHR»(.96):LF$=CHR«( 11) 

190 CLS 

200 INPUT •COM»iRhD-;CS 

210 irCS= • r " ORC»= • fill " THENL=LR : G0T0458 

220 IFC»="C"ORC»="CLERP-THEN110 

230 IFC»="D'CRC«=*"DELETE" THEN 1200 

240 IFC«= " R • ORC«= ■ REPLBCE ' THEN 1300 

250 IFC»="1-0RCS=" INSERT ■THEN1400 

260 IFC«=-P"OPCS='PRINT"THEN1000 

270 1FC»=-N-ORCS=-NUM"THEN1500 

280 IFC«="M"ORC«="MOUE"THEN1600 

290 IFC»="H-ORC»="HELP"THEM1700 

300 1FC$=" SET -THEN 1800 

310 IFC»=-E'ORC«='EDIT"THEN1900 

330 IFC«=-L'ORC«="LORD"THEN210Q " 

340 IFC«="S-ORCS='SRUE"THEN2200 

350 IFC«= "J •ORC«=" JUSTIFY" THEN3000 

390 GOTO200 

450 CLS: 1FL<1THEN500:REM FILL 

460 FORJ=0TOL-1:C=J*64: IFC>958THENPRINT*960 , B«: C=896 

470 PRINT^C, J; : IFLENf R»( J ) )< 1THEN490 

480 PRINTTRB(4 );R»i: J); " ,. 

499 PRINT: NEXT J 

500 GOSUB700:PRINT®C,L;TRB(4); : C=C+4 

505 IFLENt flSCL))>0THENS=LENCR»(L) ):PRINT$C.Fl«tL):C=C+S 

510 PRINT^C.CCS; :ftS=INKEY$: IFFi«=" "THENPRINT»C , B«; : GOTOBIB 

520 R=RSCCR«') 

530 IFR=13THENR*=B«: GOT 0750 

540 IFR=BTHEN80e 

550 IFR=9THEN9ia0 

560 IFR=24THENe50 

570 IFR=10THEN740 

580 IFRS=BR»THENPRINT:GOTO200 

590 IFR=25THEN950 

600 PRINT<?C,R$; : R«CL)=R»CL )+R»: S=S+1 : C=C+1 : IFS< =LLTHEN510 

610 S=1:L=L+1 

620 1FL>NLTHENL=NL: PRINT "BUFFER FULL" : GOTO200 

625 IFLEN(,R«(L) )<>0THENPP INT: GOT 0200 

630 1FL>LRTHENLR=L 

635 IFR«=BSTHEN5e0 

640 FORI=LLTO0STEP-l: IFMIDSC R»( L- 1") , I, 1 )=B«THEN650 '■*' ^J 

650 C=C-l:NEXTI :GOTO500 

660 IFI=LLTHEN500ELSEFORJ = I+1TOLL:PR1NT%C,BS-, 

665 R»":.L)=RSCL)+MIDSCR»tL-l ), J, 1) '^, 

670 S=S+i :C=C+1 :NEXTJ:RS(L-l)=LEFT«(R«f L-1 ) , I- 1 ) : GOTO500 

700 C=L»G4: IFC<359THENRETURNELSEPR1NT»960,B«:C=896: RETURN 

740 R«CL)=R»CL)+LF«;ft»=B«:REn DOWN RRROW 

750 PRINT»C,RS; :GOTO610:REn ENTER 

800 IFS<2THEN510:REM BRCKSPRCE 

810 C=C-1: PRINT $C,BB«; :S=S- 1 : R$<: L )=LEFT$C R$( L) , S- 1 V. GOTO510 

8S0 IFS<2THEN510:REM SHIFT LEFT RRROW 

860 R«(,L)=" ' :S=l:GOSUB700:C=C+4 
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870 PRINT'i'C,CHR»(30):GOTO510 

see IFS>LL-GTHEN510:REM RIGHT RRROW 

910 FORI=STOS+'i:R*(L)=ft«(L;+BS:PRINT*C,BS; :C=C+1:NEXTI 

920 S=S+5:GOTO510 

850 IFS>=LLTHEN610:REM SHIFT-RIGHT RRROW 

960 PRINT *C , BS : FORI=STOLL : fi«( L )=ftS( L)+B« : NEXTI : GOTO610 

990 INPUT -PRESS ENTER WHEN REfiDY TO CONTINUE" ; ENS: RETURN 

1000 CLS: INPUT "PRINT LINE NUMBERS C Y/N ) ' ; NS: REM PRINT ^ 

1010 INPUT "LINE PRINTER OR UIDEO DISPLRY (P/U)";PS 

1020 IFP«="P" THEN 1100 

1030 CLS:PP=PG-l:FORR=0TOLflSTEPPL:PP=PP+l 

1040 IFPN<1THEN1050ELSEPRINTT«; 

1045 PRINTTRB(LL-7); -PRGE-; :PRINTUSING*****;PP 

1050 FORJ=KTOK.+PL-l: IFJ>LRTHEN1090 

1055 IFSP>0THENFORM=1TOSP: PRINT -.NEXTM 

1060 IFN«="Y"THENPRINTJ; 

1070 PRINTRSCJ); 

1080 NEXTJ:GOSUB990 

1090 PRINTCHRSC 30 ) : NEXTK: GOTO200 

1100 IFPEEKC 14312 )<128THENli30 

1110 INPUT"LINE PRINTER NOT RERDY . RBORT? (Y/N)';Rf 

1 1 20 IFR«- • Y ■ THEN200ELSEGOSUE990 : GOT 1 100 

1130 PP--=PG-1:FORK=0TOLRSTEPPL:PP=PP+1 

1140 IFPN<1THEN1150ELSEPRINTT» 

1145 LPRINTTRBCLL -7 V, 'PRGE";: LPRINTUSING' *=♦♦■; PP 

1150 FORJ=KTOK+PL-l: IFJ>LRTHEN1190 

1155 IFSP>0THENFORM=1TOSP:LPRINT: NEXTM 

Ilea IFN«="Y*THENLPRINTJ; 

1170 LPRINTR«( J:i; , , 

1180 NEXT J : GOSUB990 

1190 LPRINTLFS: NEXTK: GOT 0280 

1200 INPUT'FIRST LINE TO DELETE* ; Nl : REM DELETE 

1210 INPUT-LRST LINE TO DELETE •; N2 : IFNi >NLTHENN1=NL 

1220 IFNl<0THENNl=e 

1230 IFN2>NLTHENN2=NL 

1240 F0RI=NlT0N2:R«i:i )=*■ : NEXTI : GOTO200 

1300 INPUT"LINE NUMBER *; L : REM PEPLRCE 

1310 IFR$(L)="-THENPRINT"CflN' T REPLRCE LINE" ;L: GOTO200 

1320 R»CL)="" : GOT 0450 

1400 INPUT'STRRTING LINE"; L: REM INSERT 

1410 IFLEN(R«(L) )=0THEN450 

1420 PRINT " CRN' T INSERT RT LINE " ; L: GOTO200 

1500 K=0:REM NUMBER 

1510 IFK>=LRTHEN20e 

1520 IFLENCRSCK n<>0THENK=K.+ l:GOTO1510 

1530 FORJ=KTOLR-l:R»C J )=R$( J + 1):NEXTJ 

1540 RS(LR)=" " :LR=LR-1:GOTO1510 

1600 INPUT "FIRST LINE TO M0UE2;N1:REM MOUE 

1610 INPUT-LRST LINE TO MOUE " ; N2 

1620 INPUT "FIRST NEW LINE"; N3 

1630 F0RJ=N1T0N2 

1640 IFLENC R$(. N3 ) )SQR0THEN1650 

1645 PRINT " LINE ■ ;N3; -RLRFRDY OCCUPIED. *: +200 

1650 R$(. N3)=R«CJ):R«( J)=" " 

1660 N3=N3+1: IFN3>LRTHENLR=N3 

1670 NEXTJ:GOTO200 

1700 CLS: PRINT "LEGRL cOM^tRNDS RRE flS FOLLOWS:" 

1710 PRIN"^"F !^ILL',"P PRINT", °C CLERR" 
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1720 PRINT "R REPLftCE',-1 INSERT* , *D DELETE" 

1730 PRINT -N NUMBER*, 'M MOUE" , 'E EDIT* 

1740 PRINT 'L ',_OftD*,*S SRUE* , *H HELP* 

1750 PRINT -J JUSTIFY-, • SET* 

1760 PRINT-TYPE SHIFT-*' TWICE TO RETURN TO COMMftND MODE. 

1770 GOTO200 

1800 CLS: INPUT -LIJSE LENGTH" ;LL 

1810 INPUT -PP^E LE^4GTH*;PL 

1820 INPUT SPftCING i.l=SlNGLE, 2=D0UBLE ) * ; SP 

1830 INPUT -PftGE NUMBERING (1=YES, 0=NO)*;PN 

1840 IFPN>0THE'SlNPijT "STARTING PAGE NUMBER* ;PG 

1850 INPUT • TI-^LE * :T» 

189B GOT 0200 

1900 CLS: INPUT "LINE NUMBER *; L : REM EDIT 

1910 IFLENCRSCL) XITHENPRINT'CRN' T EDIT LINE" ;L: GOTO200 

1S20 PRINTL;~h3( 4);fi»CL); 

1330 C=88:5=l:IFL>99THENC=69 

1940 GOSUB2520 

1850 IFFI«=- •■'■HEN2500 

1960 IFASCf ft«>=8THENGOSUB2510:GOTO1940 

1970 IFftSCCf** =i3THEN2900 

1S80 lFPl»=-I*THEN2600 

1990 IFFiS=*D*THEN2650 

2000 IFft»=-H*THEN2750 

2010 1FR»=-X'THEN2800 

2020 IFft»=-C*THEN2850 

2040 IFft«=*S*THEN2950 

2050 GOTO 1940 

2100 GOSUB2300:lFft»="D*THEN2l50:REM LOPiD 

2110 Iffl^^T ♦ - 1 , Lft , SP , PN , PG , PL , LL , T 

2115 IFT>eTHENINPUT*-l,T» 

2120 FORL=0TOLR: INPUT*- l,ft»(L) 

2130 rCXTL:GOSUB2400: GOT 0200 

2150 OPEN- I- , 1,F« 

2160 INPUT*1,LR,SP,PN,PG,PL,LL,T 

2165 IFT>0THENINPUT*1,T» 

2170 FORL=0TOLft: INPUT* 1,AS(L) 

2180 NEXTL : CLOSE ; GOSUB2400 : GOTO200 

2200 GOSUB23e0 : GOSUB2450 : IFRS= * D " THEN2250 : REM SAUE 

2210 PRINT*-i,Lfl,SP,PN,PG,PL,LL,LEN(Tt) 

2215 IFLEN(T$)>0THENPRINT*-1,TS 

2220 FORL=eTOLft: PRINT*- 1,R»(L) 

2230 NEXTL : GOSUB2400 : GOTO200 

2250 OPEN'O* . i ,FS 

2250 PRINT* 1 , LR , SP , PN , PG , PL, LL , LEN( T« ) 

2265 IFLENt T«)>0THENPRINT*1,T» 

2270 FORL=eTOLR: PRINT* i,Rt(L) 

2280 NEXTL: CLOSE: G0SUB2 400 :GOTO200 

2300 CLS: INPUT -TRPE OR DISK (T/'D)";R* 

2310 IFR»<>-D-THEN2330 

2320 INPUT •FILE5PEC";F»: RETURN 

2330 PRINT -PERDY CRSSETTE *: GOSUB990 : RETURN 

2400 FORL=0TOlR: IFLEN(R«( L) K 1THEN2440: UNTRANSLRTE 

2410 FORI = iTOLEN(R»CL) ,i:M=RSC(M1DS(R«(L), 1,1)) 

2420 IFMM28THENGOSUB3200 

2430 NEXT I 

2440 NEXTL: RETURN 

2450 FORL-QTOLR:IFLEN(Pi«(L))< 1THEN2490:TRRN5LRTE 
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2460 FORI = lTOLEN(R«CL)'):M$=MlD$(ft«(L),I, 1) 

2470 IFM»= ■ , • ORM»= " : " ORM$= " " ORM$=CHR«C 34 )THENG0SUB322B 

2480 NEXTl 

2490 NEXTL: RETURN 

2500 IFS>-LENCft»CL))THEN1940 

2505 PRTNT*C,M1D«CF1»(L),S, 1 J; :S'=S+1:C-C+1:GOTO1940 

2510 irS<.2THENRETURN 

2515 PRTNT<6C,M1D»(. ftStD.S, 1); : S=S- 1 : C-C- 1 : RETURN 

2520 PRINT^CCCS; :R$=INKEY$:lFPi»<>-*THEN2540 

2530 PRINT *C, MID»( R»<: L), S, 1) ;: GOT 02520 

2540 IFRSCCn* )=13THEN2900EL5EIFftSCC ft$ )»8THENGOSUB2510: GOTO2S20 

2545 RETURN 

2550 1FLEN(<=I»CL))>-LLTHEN1940ELSERETURN 

2560 IFLENC R$< L ) K 1THEN1940ELSERETURN 

2570 PR1NTCHR«(8); 

2575 IFS>=LEN(R»CL))THEN1940EL5ERETURN 

2580 L*= ■ * : IFS > iTHENLt=LEFT»C R$( D , S- 1) : RETURN 

2590 RS=- • : IFS< LEN( RSC L ) )THENR»=RIGHT»( R«( L ) ,LENC R»(L n-S+1) 

2595 RETURN 

2600 GOSUB2550 : REM INSERT 

2610 GOSUB2520:PRlNTftC,R$; : IFftSCCR«l-13THEN2900 

2615 IFRSC(RS)=27THEN1940ELSEIFRSCCR«)=8THENGOSUB2510:GOTO2610 

2620 GOSUB2580 : GOSUB2590 

2630 R«(L)=L»+R$+R$:S=S+1:C=C+1:PRINTR$; :GOTO2610 

2650 GOSUB2560 : GOSUB2570 : PRINT CHRS( 30 ) ; : REM DELETE 

2660 GOSUB2580 : S=5+ 1 : GOSUB2590 : S=S- 1 

2670 R»(L)=L»+R«:PR1NTR$: GOTO 1340 

2750 PR1NTCHR»C 30 ) : REM HRCK 

2760 IFS>1THENR«(L)=LEFT$( RSCD.S-l) 

2770 GOSUB2520:PRINT*C.R»; :R«CL)=R«CL)+R« 

2780 C-C.+ l:S=S+l:GOTO2770 

2800 GOSUB2550:GOSUB2570:REM X 

2810 GOSUB2590:PRINTR»; : C=C+LEN( R$CL) )-S+l 

2820 S-LEN(R$CL))+1: GOTO2750 

2850 GOSUB2520 : REM CHRNGE 

2860 PRINT^CR* 

2870 GOSUB2580:S-S+1:GOSUB2590: 5=5-1 

2880 R«CL)=»L$+R«+R«:S=S+l:C=C+l: GOTO 1940 

2900 IFLENCR«(L))>=LLTHEN2920:REM ENTER 

2910 F0R1=ST0LEN( ft»C D ) : PRINT^C , MID»( R$( L ) , 1, 1 ^ ; : C-C+1 : NEXTI 

2920 PRINT:S=l: IFLEN(R«(L) )<=LLTHEN200 

2930 PRINT 'LINE* ;L; 'CONTRINS* ;LENC RSC L) ); 'CHRRRCTERS. ":GOTO200 

2350 G0SUB2575 : GOSUB2520 : PRINT^C , MIDSC R»( L) , S , 1 ) ; = RELM SERRCH 

2960 C5=C+1:F0RI=S+1T0LEN(R$(L)): IFMIDfC R«( L) , I , 1 )<>R»THEN2980 

2970 S-I -.0=05: GOT 01 940 

2980 C5-CS+1: NEXTI: GOTO 1940 

3000 L--l:REM JUSTIFY 

3010 L-L+1:IFLENCR«(L) )<lORLEN(R«CLn>=LLTHEN3090 

3015 Ef-RIGHTSCRSCL) , 1 ) 

30 IB IFE$=* . "ORES'' ' ■ORE»="?- ORE«=" )'ORES--: " ORES-LFSTHEN3090 

3020 F0RI = 1T0LENCR«(L) ): IFMIDSC RSC L) , 1 , 1 K >BSTHENNEXTI : GOTO3090 

3040 I-FlXi-LEN(RSCL ) V2 ) : J = I + 1 

3050 IFMIDSCRSf L), I, 1)-B$THENGOSUB3100 

3060 I=I-1:IF1<2THEN3010 

3065 IFLENCRSCLn>=LLTHEN3090 

3070 IFMIDSCRSCL), J, i )=B$THENGO5UB3120 

3080 J-J+l:IFJ>=LLTHEN3010 

3885 IFLENCRSCL) XLLTHEN3050 

CONTINUED BENERTH ' lORDEP - 4K' . 



